home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 3 / Gold Medal Software - Volume 3 (Gold Medal) (1994).iso / prog / dnalib59.arj / BYTE.BAS < prev    next >
BASIC Source File  |  1994-01-26  |  806b  |  26 lines
  1. SUB CalcByte(Attr%,LowByte%,HiByte%)PUBLIC
  2.  
  3. LowByte% = 15 AND Attr%
  4. HiByte% = 255 AND (Attr% - LowByte%) / 16
  5.  
  6. END SUB
  7.  
  8. SUB MakeByte(Attr%,LowByte%,HiByte%)PUBLIC
  9.  
  10. Attr% = HiByte% * 16 + LowByte%
  11.  
  12. END SUB
  13.  
  14. SUB CheckBits(Attr%,BitOne%,BitTwo%,BitThree%,BitFour%,BitFive%,BitSix%,BitSeven%,BitEight%)PUBLIC
  15.  
  16. IF (Attr% AND 1) = 1 THEN BitOne% = 1 ELSE BitOne% = 0
  17. IF (Attr% AND 2) = 2 THEN BitTwo% = 1 ELSE BitTwo% = 0
  18. IF (Attr% AND 4) = 4 THEN BitThree% = 1 ELSE BitThree% = 0
  19. IF (Attr% AND 8) = 8 THEN BitFour% = 1 ELSE BitFour% = 0
  20. IF (Attr% AND 16) = 16 THEN BitFive% = 1 ELSE BitFive% = 0
  21. IF (Attr% AND 32) = 32 THEN BitSix% = 1 ELSE BitSix% = 0
  22. IF (Attr% AND 64) = 64 THEN BitSeven% = 1 ELSE BitSeven% = 0
  23. IF (Attr% AND 128) = 128 THEN BitEight% = 1 ELSE BitEight% = 0
  24.  
  25. END SUB
  26.